home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / asm / alib11b.zip / CODE1.ZIP / DISKFILE / FILESIZE.ASM < prev    next >
Assembly Source File  |  1994-10-04  |  2KB  |  69 lines
  1. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  DISK   )
  2. FILE_SIZE1 - find an open file's size
  3. ;
  4. ; inputs:    BX = file handle
  5. ; 
  6. ; output:    if CF = 0, DX:AX = file size (low word in AX)
  7. ;            if CF = 1, AX = DOS error code
  8. ;            
  9. ;* * * * * * * * * * * * * *
  10.     public    FILE_SIZE1
  11. FILE_SIZE1    PROC    FAR
  12.    APUSH   BX,CX,SI,DI
  13.    MOV       AX,4201h        ;set ds:ax to file posn (save)
  14.    XOR     CX,CX
  15.    MOV     DX,CX
  16.    INT     21h
  17.    JB      FSIZE_1
  18.    MOV     DI,DX
  19.    MOV     SI,AX
  20.    MOV       AX,4202h        ;seek to end of file, size -> dx:ax
  21.    XOR     CX,CX
  22.    MOV     DX,CX
  23.    INT     21h
  24.    PUSH    DX
  25.    PUSH    AX
  26.    MOV       AX,4200h         ;restore orig. file posn
  27.    MOV     CX,DI
  28.    MOV     DX,SI
  29.    INT     21h
  30.    POP       AX            ;put file size in dx:ax
  31.    POP     DX
  32. FSIZE_1:
  33.    jnc       fsize_exit
  34.    stc
  35. fsize_exit:
  36.    APOP    DI,SI,CX,BX
  37.    RETF
  38. FILE_SIZE1    ENDP
  39.  
  40. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  DISK   )
  41. FILE_SIZE2 - find a closed file's size
  42. ;
  43. ; inputs:    DS:DX = pointer to file name asciiz string
  44. ; 
  45. ; output:    if CF = 0, DX:AX = file size (low word in AX)
  46. ;            if CF = 1, AX = DOS error code
  47. ;            
  48. ;* * * * * * * * * * * * * *
  49.  
  50.     public    FILE_SIZE2
  51. FILE_SIZE2    PROC    FAR
  52.     apush    bx,cx,si,di
  53.     mov    ax,3d00h
  54.     int    21h            ;open file
  55.     jc    fs_err2            ;jmp if error
  56.     mov    bx,ax            ;get file handle
  57.     call    file_size1
  58.     pushf
  59.     push    ax
  60.     mov    ah,3eh
  61.     int    21h            ;close file
  62.     pop    ax
  63.     popf
  64. fs_err2:
  65.     apop    di,si,cx,bx    
  66.     ret    
  67. FILE_SIZE2    ENDP
  68.  
  69.